www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\Site\sort_DEL.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% projectRootPath = "../../" '相对当前应用程序根的位置 %> <!-- #include file ="../include/checkPurview.asp"--> <!--#include file="../../ConnDB.asp"--> <!--#include file="../../include/Function.Common.asp"--> <!-- #include file="../include/Function.Manage.Config.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta name="robots" content="noindex,nofollow" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>类别添加</title> <link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" /> </head> <body id="bodyBg1"> <br /> <a href="sort_Manage.asp">类别管理</a> | <a href="sort_Add.asp">类别添加</a> <hr color="#0099FF" size="1" /> <br /> <dl class="manageContent"> <dt>类别删除</dt> <dd> <br /> <% ID_Class=Request.QueryString("id") if ID_Class <> "" then if (isSub("deep_WebSort","fparentID",ID_Class)) then Response.Write "<p> </p><p align='center'>栏目内有网站!</p>" Response.Write "<p align='center'>请删除网站或移至其它栏目后再删除此栏目</p>" else sql="delete from deep_WebSort where fid_Sort=" & ID_Class conn.execute(sql) Response.Write("<p align='center'>栏目成功删除</p>") end if else Response.Write("<p align='center'>栏目未删除</p>") end if Call CloseConnDB() %> <br /> </dd> </dl> <br /> </body> </html>